function PlotMesh%(x,y,elem,haxes)

haxes=gca;
% axes(haxes)
ClearFigure('mesh');
if nargin==0
    GetCommonData
%     plot(haxes,x,y,'.','tag','mesh');
    hold on
    
    idx=g(:,[1:4,1]);
    plot(haxes,x(idx)',y(idx)','blue','tag','mesh');
else
end
axis equal
drawnow